home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / System / DEF / Process / Inheritation / use-orchestra < prev   
Encoding:
Text File  |  1998-10-23  |  751 b   |  31 lines  |  [TEXT/ScoM]
  1. use-orchestra orchestra-symbol
  2.  
  3. This is needed when you have more that one orchestra definition. It lets you define what orchestra the instrument inheritation will follow. Inheritation follows by default the latest def-orchestra.
  4.  
  5. (def-orchestra 'orchestra
  6.    all-instruments (piano synth)
  7.    piano (left-hand right-hand)
  8. )
  9.  
  10. (def-class symbol piano
  11.    all-section '(a -b)
  12. )
  13.  
  14. Here the instrument inheritation would follow orchestra2, but use-orchestra sets it to follow orchestra1.
  15.  
  16. (def-orchestra 'orchestra1
  17.    all-instruments (piano synth)
  18.    piano (left-hand right-hand)
  19. )
  20.  
  21. (def-orchestra 'orchestra2
  22.    all-instruments (piano synth)
  23.    piano (left-hand2 right-hand2)
  24. )
  25.  
  26. (use-orchestra orchestra1)
  27.  
  28. (def-class symbol piano
  29.    all-section '(a -b)
  30. )
  31.